GAMEXX[206,LSP] - www.SailDart.org

perm filename GAMEXX[206,LSP] blob sn#132900 filedate 1974-11-26 generic text, type T, neo UTF8


(DEFPROP GAMEXX
 (NIL VMX LMX TMX)
VALUE)

(DEFPROP VMX
 (LAMBDA (P) (RECTIFY P) (COND (W (VALMIN (SUCCESSORS P) -1000 1000)) (T (VALMAX (SUCCESSORS P) -1000 1000))))
EXPR)

(DEFPROP LMX
 (LAMBDA(P)
  (RECTIFY P)
  (COND (W (LINEMIN (SUCCESSORS P) NIL -1000 1000)) (T (LINEMAX (SUCCESSORS P) NIL -1000 1000))))
EXPR)

(DEFPROP TMX
 (LAMBDA(P)
  (RECTIFY P)
  (COND (W (TREEMIN (SUCCESSORS P) NIL NIL -1000 1000)) (T (TREEMAX (SUCCESSORS P) NIL NIL -1000 1000))))
EXPR)